home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / Aldus FreeHand / Aldus FreeHand 4.0 TV / Aldus FreeHand 4.0 TV.rsrc / Post_1094 < prev    next >
Encoding:
Text File  |  1994-01-25  |  538 b   |  37 lines
  1. /setgray{pop 1 _setgray}bdf
  2. /setcmykcolor{
  3.  overprintcmyk
  4.  pop pop 1 exch sub _setgray pop
  5. }bdf
  6. /maxcolor { 
  7.  4 3 roll   
  8.  pop pop pop  
  9. } bdf
  10. /colorimage{
  11.  pop pop
  12.  [
  13. 5 -1 roll 
  14. /exec cvx 
  15. 6 -1 roll
  16. /exec cvx 
  17. 7 -1 roll
  18. /exec cvx 
  19. 8 -1 roll
  20. /exec cvx 
  21. /pop cvx
  22. /pop cvx
  23. /exch cvx
  24. /pop cvx
  25.  ]
  26.  cvx 
  27.  {1.0 exch sub} bind currenttransfer concatprocs st
  28.  _image
  29. }bdf
  30. /image{
  31.  3 1 getprocessoverprint  
  32.  {gsave nulldevice _image grestore}
  33.  {inverted?{{pop 0}}{{pop 1}}ifelse st _image}
  34.  ifelse
  35. }bdf
  36. /setcolortransfer{pop pop exch pop st}bdf